home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / editors / tscredd2 / scrdisk5.exe / arc / TESTMOUS.PAS < prev    next >
Pascal/Delphi Source File  |  1990-02-26  |  1KB  |  52 lines
  1. uses Crt,Scredit,ScrMouse;
  2.  
  3. Begin
  4. ClrScr;gotoxy(20,4);
  5.  
  6. If  Not S_MouseInstalled Then
  7.     Begin
  8.     WriteLn('Mouse Driver is not in memory!');Halt;
  9.     End;
  10.  
  11. WriteLn('Mouse Driver is ACTIVE and has ',
  12.         S_Buttons:1,' buttons.');
  13.  
  14. gotoxy(32,10);Writeln('Press ESC to end.');
  15.  
  16. S_ActivateMouse;
  17. S_SetMouseEvent('01111110');
  18. S_ShowMouse;
  19. S_SetMouseRange(10,6,70,9);
  20.  
  21. Repeat
  22.  
  23.    GoToxy(20,6);
  24.    Write('Mouse Cursor Location.. Row:',
  25.          S_MsRow:2,' Column:',S_MsCol:2);
  26.  
  27.    Gotoxy(10,8);
  28.    If  S_MsLeftPressed Then         Write('[ Left Pressed     ]')
  29.    Else If  S_MsLeftReleased Then   Write('[ Left Released    ]')
  30.         Else                        Write('[  *** Left ***    ]');
  31.  
  32.    Gotoxy(50,8);
  33.    If  S_MsRightPressed Then        Write('[ Right Pressed    ]')
  34.    Else If  S_MsRightReleased Then  Write('[ Right Released   ]')
  35.         Else                        Write('[  *** Right ***   ]');
  36.  
  37.    Gotoxy(30,8);
  38.    If  S_MsMiddlePressed Then       Write('[ Middle Pressed   ]')
  39.    Else If  S_MsMiddleReleased Then Write('[ Middle Released  ]')
  40.         Else                        Write('[  *** Middle ***  ]');
  41.  
  42.    S_ResetMouseFlags;
  43.    S_NextKey;
  44.  
  45.    If  S_MouseEvent then
  46.        S_AnalizeMouse;
  47.  
  48. Until S_Esc;
  49. S_HideMouse;
  50. S_DisableMouse;
  51. End.
  52.